      MODULE TRACER_COM
      IMPLICIT NONE
      INTEGER, PARAMETER :: IM =  1  
      INTEGER, PARAMETER :: JM =  1  
      INTEGER, PARAMETER :: LM = 21  
      END MODULE TRACER_COM
      
      MODULE AMP_AEROSOL
!@sum Driver for Aerosol Microphysics
!@auth Susanne Bauer
      USE TRACER_COM
      USE AERO_CONFIG, ONLY: NMODES
      USE AERO_PARAM,  ONLY: NEMIS_SPCS
      IMPLICIT NONE
      SAVE

C**************  Latitude-Dependant (allocatable) *******************
      ! Mie lookup tables
      REAL*8, DIMENSION(17,15,6,23)      :: AMP_EXT, AMP_ASY, AMP_SCA   !(17,15,6,12) (IM,RE,lambda,size)
      REAL*8, DIMENSION(17,15,23)        :: AMP_Q55
      ! 1 Dim arrays for Radiation
      REAL*8, DIMENSION(LM,nmodes)       :: Reff_LEV, NUMB_LEV
      COMPLEX*8, DIMENSION(LM,nmodes,6)  :: RindexAMP
      REAL*8, DIMENSION(LM,nmodes,7)      :: dry_Vf_LEV

      REAL*8, DIMENSION(im,jm,lm,nmodes)     :: DIAM       ![m](i,j,l,nmodes)
      REAL*8, DIMENSION(im,jm,lm,nmodes)     :: AMP_dens   !density(i,j,l,nmodes)
      REAL*8, DIMENSION(im,jm,lm,nmodes)     :: NACTV      != 1.0D-30  ![#/m^3](i,j,l,nmodes)
      REAL*8, DIMENSION(im,jm,nmodes,2)     :: VDDEP_AERO != 1.0D-30  ![m/s](i,j,nmodes,2)
      


      END MODULE AMP_AEROSOL
